home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
pascal
/
tpdb314.zip
/
PACKTEST.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-01-31
|
824b
|
39 lines
{$A+,B+,D+,E-,F-,I-,L+,N-,O-,R-,S-,V-}
{$M 16384,0,655360}
Program PackTest;
Uses Crt,TPDB;
Var
H : Integer;
Test : ^DBF;
begin
NEW(Test,Init('packtest.dbf'));
If Test^.TotalRecs>=500 then Test^.Zap;
ClrScr;
Writeln('Appending 1000 records.....');
Test^.FillRecs(1000);
Writeln('Deleting 500 records....');
For H := 1 to 1000 do
begin
Test^.GetDBRec(H);
If H mod 2 = 0 then
begin
Test^.Repl(1,'Deleted.');
Test^.Mark;
end
else
Test^.Repl(1,'Undeleted.');
Test^.PutDBRec(H);
end;
Test^.DBReset;
Writeln('Packing....');
Test^.Pack;
Writeln('500 undeleted records remain.');
Writeln;
Writeln('TPDB Version 3.14');
Test^.Done;
end.